home *** CD-ROM | disk | FTP | other *** search
- object main: Tmain
- Left = 342
- Top = 249
- BorderStyle = bsSingle
- Caption = 'The Lock Admin Utility'
- ClientHeight = 162
- ClientWidth = 267
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- Position = poScreenCenter
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- OnKeyPress = FormKeyPress
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 8
- Top = 8
- Width = 169
- Height = 145
- Shape = bsFrame
- end
- object Label1: TLabel
- Left = 16
- Top = 56
- Width = 89
- Height = 17
- AutoSize = False
- Caption = 'New Password'
- end
- object Label2: TLabel
- Left = 16
- Top = 16
- Width = 115
- Height = 13
- Caption = 'Current Admin Password'
- end
- object Label3: TLabel
- Left = 16
- Top = 112
- Width = 75
- Height = 13
- Caption = 'Verify Password'
- end
- object Label4: TLabel
- Left = 16
- Top = 72
- Width = 101
- Height = 13
- Caption = ' (Min 4, Max 13 Char)'
- end
- object Edit1: TEdit
- Left = 16
- Top = 32
- Width = 153
- Height = 21
- Hint = 'Enter the current Admin password on this line.'
- ParentShowHint = False
- PasswordChar = '*'
- ShowHint = True
- TabOrder = 0
- end
- object Button1: TButton
- Left = 184
- Top = 88
- Width = 75
- Height = 25
- Caption = 'Set &Password'
- TabOrder = 3
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 184
- Top = 128
- Width = 75
- Height = 25
- Caption = '&Exit'
- TabOrder = 4
- OnClick = Button2Click
- end
- object Edit2: TEdit
- Left = 16
- Top = 88
- Width = 153
- Height = 21
- Hint =
- 'Enter the new password here. (word may by upper or lowercase, b' +
- 'ut must be between 4 and 8 char long.'
- ParentShowHint = False
- PasswordChar = '*'
- ShowHint = True
- TabOrder = 1
- end
- object Edit3: TEdit
- Left = 16
- Top = 128
- Width = 153
- Height = 21
- Hint = 'Verify the new Admin password.'
- ParentShowHint = False
- PasswordChar = '*'
- ShowHint = True
- TabOrder = 2
- end
- object ini: TListBox
- Left = 96
- Top = 224
- Width = 121
- Height = 97
- ItemHeight = 13
- TabOrder = 5
- Visible = False
- end
- end
-